home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / disk / cdrom / SkandalfoCDP.lha / SCDPlayer / Rexx / CommentIDFiles.scdp < prev    next >
Text File  |  1996-08-27  |  883b  |  48 lines
  1. /* based on ReadCDTitles.rexx v1.0 © 1996 Roy Brown*/
  2.  
  3. /* $Ver: CommentIDFiles.scdp V1.0 (27.8.96) */
  4.  
  5. /* Set this the first characters of the filename that are common to all
  6.    filenames - need only be the first one or two. Leave the '#?' in place. */
  7.  
  8. /* ID in SCDPlayer */
  9. FileStart="ID#?"
  10.  
  11. /****** No need to touch anything below this line ******/
  12.  
  13. Options FailAt 21
  14. OPTIONS RESULTS
  15.  
  16. DISKSPATH
  17. DiskDir=RESULT
  18. If RC~=0|DiskDir='' Then Exit
  19.  
  20. a=Pragma("D",DiskDir)
  21.  
  22. Address Command 'List 'FileStart' LFormat %N > T:DiskList'
  23.  
  24. n=0
  25.  
  26. Address
  27. a=Open(list,"T:DiskList")
  28. Do While EOF(list)=0
  29.    n=n+1
  30.    File.n=Readln(list)
  31. End
  32.  
  33. Do x=1 to n-1
  34.    a=Open(name,File.x)
  35.    CD.Artist=Readln(name)
  36.    CD.Title=Readln(name)
  37.    CD.ID=CD.Artist||' - '||CD.Title
  38.    Address Command 'Filenote 'File.x' "'CD.ID'"'
  39.    a=Close(name)
  40. End
  41.  
  42. a=Close(list)
  43.  
  44. Address Command 'Delete >NIL: T:DiskList'
  45.  
  46. Exit
  47.  
  48.